home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / qmdm_mse.zip / QMODEMLT.DEF < prev    next >
Text File  |  1991-11-03  |  37KB  |  836 lines
  1. ;------------------------------------------------------------------------------
  2. ;--     Q M o d e m   4.31     Logitech     M o u s e   P r o g r a m        --
  3. ;--                                                                          --
  4. ;--                   Written by Rick Schaefer   Oct. 1990                   --
  5. ;--                   Modified by Larry Bennett  Nov. 1991                   --
  6. ;--                                                                          --
  7. ;--  This program was inspired by Bob Rapp whose mouse program I down-       --
  8. ;--  loaded from The Forbin Project BBS (319) 266-0540, home of Qmodem SST.  --
  9. ;--  Since this is my first attempt at writing a mouse program of this size, --
  10. ;--  any suggestions or comments would be very helpful and appreciated.      --
  11. ;--  There is no charge for this program because I know what it is like if   --
  12. ;--  you are used to using a mouse and suddenly have a program that doesn't  --
  13. ;--  support one.  This is for all those mouse enthusiasts out there!!!      --
  14. ;--                                                                          --
  15. ;--                                                                          --
  16. ;--  If you feel the need to use the TEXT statements AND you are using a     --
  17. ;--  Logitech MENU program to load menus,  be sure to add MENU/nn to your    --
  18. ;--  autoexec.bat file or type it at DOS prompt if you haven't already       --
  19. ;--  loaded the MENU driver.                                                 --
  20. ;--                                                                          --
  21. ;--  This menu has developed and tested using Logitech 3.43 mouse software.  --
  22. ;--                                                                          --
  23. ;--                        ENJOY!!!!!!!!                                     --
  24. ;--                        R. S. &  L.B.                                     --
  25. ;------------------------------------------------------------------------------
  26. ;--                                                                          --
  27. ;------------------------------------------------------------------------------
  28. ;--                                                                          --
  29. ;--   Note that a majority of the TEXT statements in the popup menus have    --
  30. ;--   been commented out.  They are left here for documentation purposes     --
  31. ;--   only (as an indication as to the "target" for the select statements).  --
  32. ;--                                                                          --
  33. ;------------------------------------------------------------------------------
  34.  
  35. ;--- Change these numbers to change mouse speed. Lower#=Faster Mouse:─┐
  36. BEGIN  LeftB,BothB,RightB,GoLeft,GoRight,UpM,DnM,150,50;<─────────────┘
  37.  
  38. LeftB:   EXECUTE RETURN                                  ;Always enter
  39. RightB:  EXECUTE ESCAPE                                  ;Always escape
  40.  
  41. GoLeft:    MATCH 25,17,,"F1-Topic Index",LeftM,GoLeft2       ;Left & Right
  42. GoLeft2:   MATCH 1, 26,,"═ Batch Upload",CtlLtArrow,GoLeft3  ;motion only in
  43. GoLeft3:   MATCH 1, 30,,"═ Setup Menu ",LeftM,GoLeft4        ;batch upload,
  44. GoLeft4:   MATCH 1, 26,,"═ Setup Manu -",LeftM,Noaction      ;Qinstall
  45. GoRight:   MATCH 25,17,,"F1-Topic Index",RightM,GoRight2     ;help or Qinstall
  46. GoRight2:  MATCH 1, 26,,"═ Batch Upload",CtlRtArrow,GoRight3 ;menus/screens 
  47. GoRight3:  MATCH 1, 30,,"═ Setup Menu ",RightM,GoRight4      ;  "   "   "
  48. GoRight4:  MATCH 1, 26,,"═ Setup Menu -",RightM,Noaction     ;  "   "   " 
  49.  
  50. UpM:       MATCH 1,34,,"═ Phone Book ═",UpArrow,UpM2      ;Up and down motion
  51. UpM2:      MATCH 25,17,,"F1-Topic Index",UpArrow,UpM3     ;only while in
  52. UpM3:      MATCH 1,26,,"═ Batch Upload",UpArrow,UpM4      ;phone book, help,
  53. UpM4:      MATCH 25,15,,"Arrows-Scroll",UpArrow,UpM5      ;batch entry, 
  54. UpM5:      MATCH 25,4,,"SCROLL-BACK",UpArrow,UpM6         ;Scroll Back,    
  55. UpM6:      MATCH 25,3,,"<dir>",UpArrow,UpM7               ;directory view
  56. UpM7:      MATCH 1, 30,,"═ Setup Menu ",UpArrow,UpM8      ;and Qinstall
  57. UpM8:      MATCH 1, 26,,"═ Setup Menu -",UpArrow,Noaction ;menus/screens
  58. DnM:       MATCH 1,34,,"═ Phone Book ═",DnArrow,DnM2      ;   "    "     "
  59. DnM2:      MATCH 25,17,,"F1-Topic Index",DnArrow,DnM3     ;   "    "     "
  60. DnM3:      MATCH 1,26,,"═ Batch Upload",DnArrow,DnM4      ;   "    "     "
  61. DnM4:      MATCH 25,15,,"Arrows-Scroll",DnArrow,DnM5      ;   "    "     "
  62. DnM5:      MATCH 25,4,,"SCROLL-BACK",DnArrow,DnM6         ;   "    "     "
  63. DnM6:      MATCH 25,3,,"<dir>",DnArrow,DnM7               ;   "    "     "
  64. DnM7:      MATCH 1, 30,,"═ Setup Menu ",DnArrow,DnM8      ;   "    "     "
  65. DnM8:      MATCH 1, 26,,"═ Setup Menu -",DnArrow,Noaction ;   "    "     "
  66.  
  67. ;-----------------------------------------------------------------------------
  68. ;   **** Define the screen matches for calling Popup Menus
  69.  
  70. BothB:     MATCH 13,28,,"Delete Entries",FonDel,Match1    ;Delete Fon entry or notes
  71. Match1:    MATCH 1,32,,"Download",DL,Match2               ;DownLoads
  72. Match2:    MATCH 1,33,,"Upload",UL,Match3                 ;Uploads
  73. Match3:    MATCH 11,36,,"Exit Qmodem",Exit,Match4         ;Exit Qmodem
  74. Match4:    MATCH 15,37,,"Redialer",Redialer,Match5        ;Redialer menu
  75. Match5:    MATCH 7,35,,"Set COM Port",ComPort,Match5f     ;Setup COM Port
  76. Match5f:   MATCH 2,30,,"Set Communic",ComPortf,Match6     ;Setup Com Port
  77. Match6:    MATCH 7,26,,"Communications",ComPort2,Match7   ;SetUp Baud Rate etc
  78. Match7:    MATCH 7,35,,"Set Emulation",SetEm,Match8       ;Keyboard Emnulation
  79. Match8:    MATCH 5,33,,"Table",TranTable,Match9           ;Translation Talbe
  80. Match9:    MATCH 17,4,,"Valid",Macro2,Match10             ;Fkey editor scrn
  81. Match10:   MATCH 2,29,,"Function Key",Macro1,Match11      ;Function key Macros
  82. Match11:   MATCH 11,33,,"Change Log",ChgLog,Match12       ;Change Logged Drive
  83. Match12:   MATCH 1,26,,"═ Batch Upload",BatchUL,Match13   ;BatchUL window
  84. Match13:   MATCH 1,34,,"═ Phone Book ═",Fonbook,Match14   ;PhoneBook Commands
  85. Match14:   MATCH 11,37,,"Hangup",HangUp,Matcha            ;Hangup modem?
  86. ;-----------------------------------------------------------------------------
  87. ;----- ****  The following are Match commands to recognize the 7 Terminal ****
  88. ;----- ****  Emulations used by Qmodem 4.2d                               ****
  89. ;-----------------------------------------------------------------------------
  90.  
  91. Matcha:    MATCH 25,2,,"ANSI",PopHelp,Matchb              ;Match to ANSI
  92. Matchb:    MATCH 25,2,,"Name:",PopHelp,Matchc             ;Alternate Match
  93. Matchc:    MATCH 25,2,,"TTY",PopHelp,Matchd               ;Match to TTY
  94. Matchd:    MATCH 25,2,,"VT100",PopHelp,Matche             ;Match to VT100
  95. Matche:    MATCH 25,2,,"TVI925",PopHelp,Matchf            ;Match to TVI925
  96. Matchf:    MATCH 25,2,,"DBUG_H",PopHelp,Matchg            ;Match to DBUG
  97. Matchg:    MATCH 25,2,,"DBUG_A",PopHelp,Matchh            ;Match to DBUG
  98. Matchh:    MATCH 25,2,,"AVATAR",PopHelp,Matchi            ;Match to AVATAR
  99.  
  100. ;-----------------------------------------------------------------------------
  101. ; The following match statements check for the Command (Help) menu and Help Screens
  102.  
  103. ;-----------------------------------------------------------------------------
  104. Matchi:    MATCH 1,33,,"═ COMMAND MENU ═",PopHelp2,Matchj
  105. Matchj:    MATCH 25,17,,"F1-Topic Index",HelpM,Matchl
  106. Matchl:    MATCH 1,31,,"═ Full Screen Edit ═",FonbookE,Matchm
  107. Matchm:    MATCH 25,4,,"SCROLL-BACK",ScrollBack,Noaction
  108.  
  109. ;------------------------  Initial help screen  ---------------------------------------
  110. PopHelp:   EXECUTE Home                                   ;Home - Show Help menu
  111. PopHelp2:  Popup 1, 1, normal
  112. TEXT " "
  113. ;TEXT "╒════════════════════════════════ COMMANDS ════════════════════════════════════╕"
  114. ;TEXT "│ ─────────────────── BEFORE ───────────────────    ──────── TOGGLES ───────── │"
  115. ;TEXT "│ Alt-D  Phone Book        Alt-G  Term Emulation    Alt-0  Session Log         │"
  116. ;TEXT "│ ─────────────────── DURING ───────────────────    Alt-1  Backspace DEL/^H    │"
  117. ;TEXT "│ Alt-C  Clear Screen      ^Home  Capture File                                 │"
  118. ;TEXT "│ Alt-F  Execute Script    ^End   Send BREAK        Alt-3  Debug Status Info   │"
  119. ;TEXT "│ Alt-Q  QuickLearn         PgUp  Upload Files                                 │"
  120. ;TEXT "│ Alt-S  Split Screen       PgDn  Download Files    Alt-5  Host Mode           │"
  121. ;TEXT "│ Alt-T  Screen Dump                                Alt-6  Batch Entry Window  │"
  122. ;TEXT "│       Scroll Back                                Alt-8  Hi-Bit Strip        │"
  123. ;TEXT "│ ─────────────────── AFTER ────────────────────    Alt-9  Printer Echo        │"
  124. ;TEXT "│ Alt-H  Hangup Modem      Alt-X  Exit Qmodem       Alt-B  Beeps & Bells       │"
  125. ;TEXT "│                                                   Alt-E  Half/Full Duplex    │"
  126. ;TEXT "│ ─────────────────── SETUP ────────────────────    Alt-I  Order Information   │"
  127. ;TEXT "│ Alt-A  Translate Table   Alt-N  Configuration     Alt-M  ANSI Music          │"
  128. ;TEXT "│ Alt-J  Function Keys     Alt-P  Change Baud Rate  Alt-U  Scrollback Record   │"
  129. ;TEXT "│ Alt-K  Change COM Port                            Alt-Z  XON/XOFF Flow Ctrl  │"
  130. ;TEXT "│                                                   Alt-=  DoorWay Mode        │"
  131. ;TEXT "│ ──────────────────── DOS ─────────────────────    Alt--  Status Lines        │"
  132. ;TEXT "│ Alt-L  Change Drive      Alt-V  View/Edit File    ShTab  CR/CRLF Mode        │"
  133. ;TEXT "│ Alt-O  Change Directory  Alt-W  List Directory    Alt─┘ Status Line Info    │"
  134. ;TEXT "│ Alt-R  DOS Shell         Alt-Y  Delete File                                  │"
  135. ;TEXT "│                                                                              │"
  136. ;TEXT "╘════════════ Qmodem SST Version 4.2C Production  Compiled 10/25/90 ═══════════╛"
  137.               SELECT  3,  2, 19, AltD
  138.               SELECT  5,  2, 21, AltC
  139.               SELECT  6,  2, 23, AltF
  140.               SELECT  7,  2, 19, AltQ
  141.               SELECT  8,  2, 21, AltS
  142.               SELECT  9,  2, 20, AltT
  143.               SELECT 10,  2, 20, UpArrow
  144.               SELECT 12,  2, 21, AltH
  145.               SELECT 15,  2, 24, AltA
  146.               SELECT 16,  2, 22, AltJ
  147.               SELECT 17,  2, 24, AltK
  148.               SELECT 20,  2, 21, AltL
  149.               SELECT 21,  2, 25, AltO
  150.               SELECT 22,  2, 18, AltR
  151.               SELECT  3, 27, 23, AltG
  152.               SELECT  5, 27, 21, CtlHome
  153.               SELECT  6, 27, 19, CtlEnd
  154.               SELECT  7, 28, 20, PgUp
  155.               SELECT  8, 28, 22, PgDn
  156.               SELECT 12, 27, 20, AltX
  157.               SELECT 15, 27, 22, AltN
  158.               SELECT 16, 27, 25, AltP
  159.               SELECT 20, 27, 23, AltV
  160.               SELECT 21, 27, 23, AltW
  161.               SELECT 22, 27, 20, AltY
  162.               SELECT  3, 52, 20, Alt0
  163.               SELECT  4, 52, 25, Alt1
  164.               SELECT  6, 52, 26, Alt3
  165.               SELECT  8, 52, 18, Alt5
  166.               SELECT  9, 52, 27, Alt6
  167.               SELECT 10, 52, 20, Alt8
  168.               SELECT 11, 52, 20, Alt9
  169.               SELECT 12, 52, 21, AltB
  170.               SELECT 13, 52, 24, AltE
  171.               SELECT 14, 52, 25, AltI
  172.               SELECT 15, 52, 18, AltM
  173.               SELECT 16, 52, 25, AltU
  174.               SELECT 17, 52, 26, AltZ
  175.               SELECT 18, 52, 20, AltEqual
  176.               SELECT 19, 52, 20, AltMinus
  177.               SELECT 20, 52, 20, ShTab
  178.               SELECT 21, 52, 24, Alt13
  179.               SELECT 25, 31,  9, F1
  180.               SELECT 25, 42, 29, ESCAPE
  181.             PEND
  182.  
  183. ;----------------  Popup for help menus ----------------------------------------
  184. HelpM:       MATCH 24,68,,"PgUp/PgDn",HelpMupdn,HelpM2
  185. HelpM2:      Match 24,68,,"PgUp",HelpMup,HelpM3
  186. HelpM3:      MATCH 24,73,,"PgDn",HelpMdn,HelpMnorm
  187.  
  188. HelpMupdn:   Popup 24, 16, normal
  189. TEXT " "
  190.               SELECT 1,58,5,PgDn
  191.               SELECT 1,52,5,PgUp
  192.               SELECT 2,1,16,F1
  193.               SELECT 2,19,22,AltF1
  194.               SELECT 2,42,10,ESCAPE
  195.              PEND
  196.  
  197. HelpMup:     Popup 24, 16, normal
  198. TEXT " "
  199.               SELECT 1,52,5,PgUp
  200.               SELECT 2,1,16,F1
  201.               SELECT 2,19,22,AltF1
  202.               SELECT 2,42,10,ESCAPE
  203.              PEND
  204.  
  205. HelpMdn:     Popup 24, 16, normal
  206. TEXT " "
  207.               SELECT 1,58,5,PgDn
  208.               SELECT 2,1,16,F1
  209.               SELECT 2,19,22,AltF1
  210.               SELECT 2,42,10,ESCAPE
  211.              PEND
  212.  
  213. HelpMnorm:   Popup 24, 16, normal
  214. TEXT " "
  215.               SELECT 2,1,16,F1
  216.               SELECT 2,19,22,AltF1
  217.               SELECT 2,42,10,ESCAPE
  218.              PEND
  219.  
  220. ;----------------  Popup for Phone book commands  ------------------------------
  221. Fonbook:     MATCH  6,32,,"═ Revise Entry ═",FonbookR,Fonbook2
  222. Fonbook2:    MATCH  5,29,,"═ Revise Prefixes ═",FonbookP,Fonbook3
  223. Fonbook3:    MATCH 19,23,,"══════",Noaction,Fonbook4
  224. Fonbook4:    MATCH 17,52,,"══════",Noaction,Fonbook5
  225. Fonbook5:    MATCH 25,13,," F1-Help",FonbookE,FonbookM
  226. FonbookE:    MATCH 6,35,,"═Warning═",Noaction,FonbookE2
  227.  
  228. FonbookM:    Popup 15, 1, normal
  229. TEXT " "
  230. ;TEXT "╒══════════════════════════════════ Commands ══════════════════════════════════╕"
  231. ;TEXT "│            Entries                    Dial                   FON             │"
  232. ;TEXT "│   ^SP/SP - Tag-P/Tag-Untag        M - Manual Dial        F - Find Tezt       │"
  233. ;TEXT "│    I-Ins - Insert New Entry                              A - Find Again      │"
  234. ;TEXT "│ ^D/D-Del - Delete Tagged/Bar          Edit               L - Load            │"
  235. ;TEXT "│     ^R/R - Revise Tagged/Bar      E - Edit Prefixes      O - Other Info      │"
  236. ;TEXT "│        T - Tag Multiple           N - Attached Note   ^P/P - Print 132/80    │"
  237. ;TEXT "│        U - Untag All              V - Linked Script      S - Sort            │"
  238. ;TEXT "│        Q - QuickLearn                                   ^U - Undo            │"
  239. ;TEXT "╘══════════════════════════════════════════════════════════════════════════════╛"
  240.  
  241.               SELECT  3, 13, 17, CheckSpace
  242.               SELECT  4, 13, 18, INS
  243.               SELECT  5, 13, 19, CheckDlt
  244.               SELECT  6, 13, 19, CheckRevise
  245.               SELECT  7, 13, 14, T
  246.               SELECT  8, 13, 13, U
  247.               SELECT  9, 13, 12, Q
  248.               SELECT  3, 40, 13, M
  249.               SELECT  6, 40, 15, E
  250.               SELECT  7, 40, 15, N
  251.               SELECT  8, 40, 15, V
  252.               SELECT  3, 63, 11, F
  253.               SELECT  4, 63, 12, A
  254.               SELECT  5, 63,  6, L
  255.               SELECT  6, 63, 12, O
  256.               SELECT  7, 63, 12, CheckPrint
  257.               SELECT  8, 63,  6, S
  258.               SELECT  9, 63,  6, CtlU
  259.               SELECT 10, 69,  9, F1
  260.               SELECT 11, 49, 12, RETURN
  261.               SELECT 11, 62, 10, ESCAPE
  262.             PEND
  263.  
  264. FonbookE2:   Popup 25, 1, normal          ;Notes - editor commands
  265. TEXT " "
  266.               SELECT 1,13,9,F1            ;  "       "       "
  267.               SELECT 1,22,9,F2            ;  "       "       "
  268.               SELECT 1,31,8,F3            ;  "       "       "
  269.               SELECT 1,39,14,ESCAPE       ;  "       "       "
  270.               SELECT 1,53,17,F10          ;  "       "       "
  271.              PEND
  272.  
  273. FonbookP:   Popup 1,1,normal         ;Revise Prefixes
  274. TEXT " "
  275.              SELECT 25,35,10,F10     ;   "      "
  276.              SELECT 16,47,9,F1       ;   "      "
  277.              SELECT 25,46,26,ESCAPE  ;   "      "
  278.             PEND
  279.  
  280. FonbookR:   MATCH 25,41,,"F2",FonbookR2,FonbookR1
  281. FonbookR1:  Popup 1,1,normal         ;Revise Phone book commands
  282. TEXT " "
  283.              SELECT 25,51,12,F10     ;  "      "     "     "
  284.              SELECT 19,51, 9,F1      ;  "      "     "     "
  285.              SELECT 25,64,13,ESCAPE  ;  "      "     "     "
  286.             PEND
  287. FonbookR2:  Popup 1,1,normal         ;Revise Phone book commands
  288. TEXT " "
  289.              SELECT 25,39,11,F2      ;  "      "     "     "
  290.              SELECT 25,51,12,F10     ;  "      "     "     "
  291.              SELECT 19,51, 9,F1      ;  "      "     "     "
  292.              SELECT 25,64,13,ESCAPE  ;  "      "     "     "
  293.             PEND
  294.  
  295. ;-----------------  These are the neccessary menus to decide what  -----------
  296. ;-----------------  functions the mouse user desires               -----------
  297. CheckSpace:      MENU " ^Sp or Sp ",15,25,normal
  298.                      OPTION "  Tag for dial without Prefix code ",CtlSp
  299.                      OPTION "  Tag/Untag ",SP
  300.                      OPTION "  ESC  Exit, no changes   ",ESCAPE
  301.                  MEND
  302.  
  303. CheckDlt:        MATCH 3,15,," 0 ",D,Checkdlt2
  304. CheckDlt2:       MENU " ^D or D ",15,25,normal
  305.                      OPTION " ^D Delete multiple entries ",CtlD
  306.                      OPTION "  D Delete bar entry      ",D
  307.                      OPTION "  ESC  Exit, no changes   ",ESCAPE
  308.                  MEND
  309.  
  310. CheckRevise:     MATCH 3,15,," 0 ",R,CheckRevise2
  311. CheckRevise2:    MENU " ^R or R ",15,25,normal
  312.                       OPTION " ^R Revise muliple entries ",CtlR
  313.                       OPTION "  R Revise bar entry       ",R
  314.                       OPTION "  ESC  Exit, no revisions  ",ESCAPE
  315.                  MEND
  316.  
  317. CheckPrint:      MENU " ^P or P ",15,25,normal
  318.                       OPTION " ^P print at 132 char/in ",CtlP
  319.                       OPTION "  P print at 80 char/in  ",P
  320.                       OPTION "  ESC  Exit, no listing  ",ESCAPE
  321.                  MEND
  322. ;--------------------------  Popup Men for D/L protocols  ---------------
  323. ;-- May have to be edited to reflect the d/l protocols installed on you system
  324. DL:           Popup 1, 28, normal
  325. TEXT " "
  326. ;TEXT "╒══ Download Protocols ══╕"
  327. ;TEXT "│                        │"
  328. ;TEXT "│ A - Ascii              │"
  329. ;TEXT "│ X - Xmodem             │"
  330. ;TEXT "│ C - Xmodem CRC         │"
  331. ;TEXT "│ R - Xmodem Relaxed     │"
  332. ;TEXT "│ O - Xmodem-1K          │"
  333. ;TEXT "│ Y - Ymodem Batch       │"
  334. ;TEXT "│ Z - Zmodem Batch       │"
  335. ;TEXT "╞═══════ External ═══════╡"
  336. ;TEXT "│ S - SEAlink            │"
  337. ;TEXT "│ B - CompuServ B+       │"
  338. ;TEXT "│ K - Kermit             │"
  339. ;TEXT "│ W - WXmodem            │"
  340. ;TEXT "│ Your Choice ?"
  341. ;TEXT "╘════════════════════════╛"
  342.               SELECT 15,2,17,RETURN ;<=== Increment/decrement the "15"
  343.               SELECT 3,2,11,A       ;     depending on the number of external
  344.               SELECT 4,2,12,X       ;     protocols that are added/deleted.
  345.               SELECT 5,2,16,C
  346.               SELECT 6,2,20,R
  347.               SELECT 7,2,15,O
  348.               SELECT 8,2,18,Y
  349.               SELECT 9,2,18,Z
  350.               SELECT 11,2,13,S     ;\
  351.               SELECT 12,2,18,B     ; \  These are the external protocol
  352.               SELECT 13,2,12,K     ; /  selection statements.  Change, add
  353.               SELECT 14,2,13,W     ;/   and delete to fit your installation.
  354. PEND
  355. ;-------------------   UpLoad protocols  -------------------------------
  356. ;---      May need to change just like the d/l protocols
  357. UL:       Popup 1, 28, normal
  358. TEXT " "
  359. ;TEXT "╒═══ Upload Protocols ═══╕"
  360. ;TEXT "│ A - Ascii              │"
  361. ;TEXT "│ X - Xmodem             │"
  362. ;TEXT "│ C - Xmodem CRC         │"
  363. ;TEXT "│ R - Xmodem Relaxed     │"
  364. ;TEXT "│ O - Xmodem-1K          │"
  365. ;TEXT "│ Y - Ymodem Batch       │"
  366. ;TEXT "│ Z - Zmodem Batch       │"
  367. ;TEXT "╞═══════ External ═══════╡"
  368. ;TEXT "│ S - SEAlink            │"
  369. ;TEXT "│ B - CompuServ B+       │"
  370. ;TEXT "│ K - Kermit             │"
  371. ;TEXT "│ W - WXmodem            │"
  372. ;TEXT "│ Your Choice ?"
  373. ;TEXT "╘════════════════════════╛"
  374.               SELECT 14,2,17,RETURN ;<=== Increment/decrement the "14"
  375.               SELECT 2,2,11,A       ;     depending on the number of external
  376.               SELECT 3,2,12,X       ;     protocols that are added/deleted.
  377.               SELECT 4,2,16,C
  378.               SELECT 5,2,20,R
  379.               SELECT 6,2,15,O
  380.               SELECT 7,2,18,Y
  381.               SELECT 8,2,18,Z
  382.               SELECT 10,2,13,S      ;\
  383.               SELECT 11,2,18,B      ; \ These are the external protocol
  384.               SELECT 12,2,12,K      ; / selection statements.  Change, add
  385.               SELECT 13,2,13,W      ;/  and delete to fit your installation.
  386. PEND
  387. ;------------------------   Exit Selection menu  --------------------------
  388.  
  389. ;Exit:       Popup  10,20,normal                      ;<=== Original popup
  390. ;TEXT "╒═══════════ Exit Qmodem? ═════════════╕"      ;     menu removed to
  391. ;TEXT "│      Y - Drop DTR & Exit to DOS      │"      ;     use the entries
  392. ;TEXT "│                                      │"      ;     displayed on
  393. ;TEXT "│      X - DTR up & Exit to Dos        │"      ;     QMODEM's status
  394. ;TEXT "│                                      │"      ;     line.
  395. ;TEXT "│      N - Remain in Qmodem            │"
  396. ;TEXT "╘══════════════════════════════════════╛"
  397. ;              SELECT 2,7,28,Y
  398. ;              SELECT 4,7,26,X
  399. ;              SELECT 6,7,22,N
  400.  
  401. Exit:       Popup   25,1,normal
  402. TEXT " "
  403.               SELECT 1,4,21,Y
  404.               SELECT 1,26,27,N
  405.               SELECT 1,54,25,X
  406.             PEND
  407. ;-------------------------   Redialer  --------------------------------------
  408. ;Redialer:    Popup 16, 43, bold                      ;<=== Original popup
  409. ;              TEXT "╒═══════════════╕"               ;     menu removed to
  410. ;              TEXT "│ [C]ycle       │"               ;     use the entries
  411. ;              TEXT "│ [K]ill        │"               ;     displayed on
  412. ;              TEXT "│ e[X]tend time │"               ;     QMODEM's status
  413. ;              TEXT "│ [ESC] abort   │"               ;     line.
  414. ;              TEXT "╘═══════════════╛"
  415. ;                     SELECT 2,2,9,C
  416. ;                     SELECT 3,2,8,K
  417. ;                     SELECT 4,2,15,X
  418. ;                     SELECT 5,2,13,ESCAPE
  419.  
  420.  
  421. Redialer:         MATCH 25,21,,"Cycle",Redialer1,Redialer2
  422. Redialer1:        Popup 25,1,normal
  423. TEXT " "
  424.                       SELECT 1,37,16,X
  425.                       SELECT 1,18,9,C
  426.                       SELECT 1,28,8,K
  427.                       SELECT 1,54,10,ESCAPE
  428.                   PEND
  429.  
  430. Redialer2:        Popup 25,1,normal
  431. TEXT " "
  432.                       SELECT 1,46,10,ESCAPE
  433.                       SELECT 1,27,9,C
  434.                       SELECT 1,37,8,K
  435.                   PEND
  436.  
  437. ;---------------------------  Change Com Port  ------------------------
  438. ComPort:        Popup 7, 24, normal
  439. TEXT " "
  440. ;TEXT "╒═════════ Set COM Port ══════════╕"
  441. ;TEXT "│    Choose Active COM port       │"
  442. ;TEXT "│                                 │"
  443. ;TEXT "│ 1  COM1  Base(03F8) Irq(04)     │"
  444. ;TEXT "│ 2  COM2  Base(02F8) Irq(03)     │"
  445. ;TEXT "│                                 │"
  446. ;TEXT "│ Your choice :                   │"
  447. ;TEXT "╘═════════════════════════════════╛"
  448.               SELECT 4,2,29,K1
  449.               SELECT 5,2,29,K2
  450.          PEND
  451.  
  452. ComPortf:      Popup 2, 24, normal    ; Qmodem 4.2f
  453. TEXT " "
  454.               SELECT 4,2,29,K1
  455.               SELECT 5,2,29,K2
  456.          PEND
  457. ;---------------------------  Communication Parameters menu  -----------------------
  458. ComPort2:        Popup 7, 12, normal
  459. TEXT " "
  460. ;TEXT "╒════════════ Communications Port Setup ═════════════╕"
  461. ;TEXT "│                                                    │"
  462. ;TEXT "│                                                    │"
  463. ;TEXT "│       Speed             Parity      Data     Stop  │"
  464. ;TEXT "│ A - 110   F - 9600     K - Even    P - 7    R - 1  │"
  465. ;TEXT "│ B - 300   G - 19200    L - Odd     Q - 8    S - 2  │"
  466. ;TEXT "│ C - 1200  H - 38400    M - Mark                    │"
  467. ;TEXT "│ D - 2400  I - 57600    N - None                    │"
  468. ;TEXT "│ E - 4800  J - 115200   O - Space                   │"
  469. ;TEXT "│                                                    │"
  470. ;TEXT "╘════════════════════════════════════════════════════╛"
  471.               SELECT 5,2,9,A
  472.               SELECT 6,2,9,B
  473.               SELECT 7,2,10,C
  474.               SELECT 8,2,10,D
  475.               SELECT 9,2,10,E
  476.               SELECT 5,12,10,F
  477.               SELECT 6,12,11,G
  478.               SELECT 7,12,11,H
  479.               SELECT 8,12,11,I
  480.               SELECT 9,12,12,J
  481.               SELECT 5,25,10,K
  482.               SELECT 6,25,9,L
  483.               SELECT 7,25,10,M
  484.               SELECT 8,25,10,N
  485.               SELECT 9,25,11,O
  486.               SELECT 5,37,7,P
  487.               SELECT 6,37,7,Q
  488.               SELECT 5,46,7,R
  489.               SELECT 6,46,7,S
  490.        PEND
  491. ;--------------------------  Keyboard Emulation  -----------------------
  492. SetEm:              Popup 7, 24, normal
  493. TEXT " "
  494. ;TEXT "╒═════════ Set Emulation ═════════╕"
  495. ;TEXT "│    Choose Active Emulation      │"
  496. ;TEXT "│                                 │"
  497. ;TEXT "│           1  TTY                │"
  498. ;TEXT "│           2  ANSI               │"
  499. ;TEXT "│           3  VT100              │"
  500. ;TEXT "│           4  TVI925             │"
  501. ;TEXT "│           5  DBUG_A             │"
  502. ;TEXT "│           6  DBUG_H             │"
  503. ;TEXT "│           7  AVATAR             │"
  504. ;TEXT "│                                 │"
  505. ;TEXT "│ Your choice :                   │"
  506. ;TEXT "╘═════════════════════════════════╛"
  507.               SELECT 5,12,9,K2
  508.               SELECT 4,12,8,K1
  509.               SELECT 6,12,10,K3
  510.               SELECT 7,12,11,K4
  511.               SELECT 8,12,11,K5
  512.               SELECT 9,12,11,K6
  513.               SELECT 10,12,11,K7
  514. PEND
  515. ;---------------------  Translation Table selections  ------------------
  516. TranTable:        Popup 5, 25, normal
  517. TEXT " "
  518. ;TEXT "╒══════ Table Selection ══════╕"
  519. ;TEXT "│                             │"
  520. ;TEXT "│    Select Table to Edit     │"
  521. ;TEXT "│                             │"
  522. ;TEXT "│         1 -  INPUT          │"
  523. ;TEXT "│         2 -  OUTPUT         │"
  524. ;TEXT "│                             │"
  525. ;TEXT "│  Your Choice ?              │"
  526. ;TEXT "╘═════════════════════════════╛"
  527.               SELECT 5,10,12,K1
  528.               SELECT 6,10,13,K2
  529. PEND
  530. ;-------------------------  Function key Operations  ----------------------------------
  531. ;-------                       For Macro's                                    ---------
  532. ;--------------------------------------------------------------------------------------
  533. Macro1:                  Popup 18, 2, normal
  534.  
  535. TEXT " "
  536. ;TEXT "│                                                                            │"
  537. ;TEXT "│ 1 - Normal   2 - Shift   3 - Ctrl   4 - Alt   L - Load    ESC - Exit       │"
  538. ;TEXT "│                                                                            │"
  539. ;TEXT "│ Your Choice ?                                                              │"
  540. ;TEXT "╘════════════════════════════════════════════════════════════════════════════╛"
  541.               SELECT 2,2,12,K1
  542.               SELECT 2,15,11,K2
  543.               SELECT 2,27,10,K3
  544.               SELECT 2,38,9,K4
  545.               SELECT 2,48,10,L
  546.               SELECT 2,60,12,ESCAPE
  547. PEND
  548. ;--------------------------  Fkey commands  --------------------------------
  549. Macro2:     Popup 17, 1, normal
  550. TEXT " " ;│ Valid Edit Keys    :   INS - Insert mode Toggle      - Field Up           │"
  551. TEXT " " ;│                        DEL - Delete Character        - Field Down         │"
  552. TEXT " " ;│                         ─ - Character Left         ^─- Word Left         │"
  553. TEXT " " ;│                         ─ - Character Right        ^─- Word Right        │"
  554. TEXT " " ;│ Special Characters :    ^M = [ENTER]                ^~ = ½ second delay    │"
  555. TEXT " " ;╘════════════════════════════════════════════════════════════════════════════╛"
  556. TEXT "   Macro Commands     :   @SCRIPT   @SHELL   @SHELLX   @DIAL   @HELP   @EDIT"
  557. TEXT "                          @STAMP    $PASSWORD"
  558.                 SELECT 7,26,9,Script
  559.                 SELECT 7,36,8,Shell
  560.                 SELECT 7,45,9,ShellX
  561.                 SELECT 7,55,7,Dial
  562.                 SELECT 7,63,7,Help
  563.                 SELECT 7,71,7,Edit
  564.                 SELECT 8,26,8,Stamp
  565.                 SELECT 8,36,11,Password
  566.                 SELECT 1,25,26,INS
  567.                 SELECT 2,25,24,DEL
  568.                 SELECT 3,25,22,LeftM
  569.                 SELECT 4,25,23,RightM
  570.                 SELECT 5,25,16,ScrENTER
  571.                 SELECT 1,55,14,UpArrow
  572.                 SELECT 2,55,16,DnArrow
  573.                 SELECT 3,55,16,CtlLtArrow
  574.                 SELECT 4,55,17,CtlRtArrow
  575.                 SELECT 5,55,21,ScrPAUSE
  576.                 SELECT 9,37,10,F10
  577.                 SELECT 9,50,24,ESCAPE
  578. PEND
  579. ;------------------------------   Change Drive Menu  -------------------------
  580. ChgLog:      POPUP 13,29,normal
  581. TEXT "╞══ Choose New Drive ══╡"
  582. TEXT "│ Drive A:    Drive E: │"
  583. TEXT "│ Drive B:    Drive F: │"
  584. TEXT "│ Drive C:    Drive G: │"
  585. TEXT "│ Drive D:    Drive H: │"
  586. TEXT "╘══════════════════════╛"
  587.         SELECT 2,2,10,A
  588.         SELECT 3,2,10,B
  589.         SELECT 4,2,10,C
  590.         SELECT 5,2,10,D
  591.         SELECT 2,14,10,E
  592.         SELECT 3,14,10,F
  593.         SELECT 4,14,10,G
  594.         SELECT 5,14,10,H
  595. PEND
  596. ;------------------------  Batch UL window menu  --------------------------
  597. BatchUL:      MATCH 25,49,,"F10-Save to Disk",BatchUL1,BatchUL2
  598.  
  599. ;BatchUL1:          POPUP 7,20,normal  ;This menu is called if user is Off-Line
  600. ;TEXT "╒═══════ Batch UpLoad Options ═════════╕"
  601. ;TEXT "│                                      │"
  602. ;TEXT "│  F2 - Pick List   F3  - Last Found   │"
  603. ;TEXT "│  F4 - Clear       F10 - Save to Disk │"
  604. ;TEXT "│      ESC - Exit without Saving       │"
  605. ;TEXT "│                                      │"
  606. ;TEXT "│                                      │"
  607. ;TEXT "╘══════════════════════════════════════╛"
  608. ;              SELECT 3,3,16,F2
  609. ;              SELECT 3,19,18,F3
  610. ;              SELECT 4,3,12,F4
  611. ;              SELECT 4,20,20,F10
  612. ;              SELECT 5,7,27,ESCAPE
  613. ;PEND
  614.  
  615. BatchUL1:    Popup 1,1,normal
  616. TEXT " "
  617.                SELECT 25, 6,14,F2
  618.                SELECT 25,21,15,F3
  619.                SELECT 25,37,10,F4
  620.                SELECT 25,48,18,F10
  621.                SELECT 25,67,10,ESCAPE
  622.                SELECT 22,67, 9,F1
  623.              PEND
  624.  
  625. ;BatchUL2:          POPUP 7,20,normal  ;This menu is called if user is On-Line
  626.  
  627. ;TEXT "╒═══════ Batch UpLoad Options ═════════╕"      ;<=== Original popup
  628. ;TEXT "│                                      │"      ;     menu removed to
  629. ;TEXT "│  F2 - Pick List   F3  - Last Found   │"      ;     use the prompts
  630. ;TEXT "│  F4 - Clear       F10 - Upload Batch │"      ;     displayed on
  631. ;TEXT "│      ESC - Exit without Saving       │"      ;     QMODEM's status
  632. ;TEXT "│                                      │"      ;     line.
  633. ;TEXT "│                                      │"
  634. ;TEXT "╘══════════════════════════════════════╛"
  635. ;              SELECT 3,3,16,F2
  636. ;              SELECT 3,19,18,F3
  637. ;              SELECT 4,3,12,F4
  638. ;              SELECT 4,20,20,F10
  639. ;              SELECT 5,7,27,ESCAPE
  640. ;PEND
  641.  
  642. BatchUL2:    Popup 1,1,normal
  643. TEXT " "
  644.                SELECT 25, 9,14,F2
  645.                SELECT 25,24,15,F3
  646.                SELECT 25,40,10,F4
  647.                SELECT 25,51,12,F10
  648.                SELECT 25,64,10,ESCAPE
  649.                SELECT 22,67, 9,F1
  650.              PEND
  651. ;-------------------------   Delete Notes or Entry Menu  -------------------------------
  652. FonDel:         POPUP 13,25,normal
  653. TEXT " "
  654. ;TEXT "╒═ Delete Entries and/or Notes ══╕"
  655. ;TEXT "│                                │"
  656. ;TEXT "│      1.  Notes Only            │"
  657. ;TEXT "│      2.  Entries & Notes       │"
  658. ;TEXT "│    ESC.  Return to Directory   │"
  659. ;TEXT "│                                │"
  660. ;TEXT "│ Your Choice ?                  │"
  661. ;TEXT "╘════════════════════════════════╛"
  662.               SELECT 3,11,12,K1
  663.               SELECT 4,11,17,K2
  664.               SELECT 5,11,21,ESCAPE
  665. PEND
  666. ;-------------------------  If verify hangup activated,  Hangup command   --------------
  667. ;HangUp:      POPUP 11,26,normal
  668.  
  669. ;TEXT "╒═════ Hangup Modem? ══════╕"                  ;<=== Original popup
  670. ;TEXT "│ [Y]es - Hangup           │"                  ;     menu removed to
  671. ;TEXT "│ [N]o  - Don't hangup     │"                  ;     use the prompts
  672. ;TEXT "╘══════════════════════════╛"                  ;     displayed on
  673. ;              SELECT 2,2,16,Y                        ;     QMODEM's status
  674. ;              SELECT 3,2,22,N                        ;     line.
  675.  
  676. HangUp:       Popup 25,1,normal
  677. TEXT " "
  678.                SELECT 1,24,26,Y
  679.                SELECT 1,51,8,N
  680.              PEND
  681.  
  682. ;----------------------------Scroll Back--------------------------------------
  683. ScrollBack:   MATCH 25,20,,"PgUp PgDn",ScrollBackUD,ScrollBack2
  684. ScrollBack2:  MATCH 25,20,,"PgUp     ",ScrollBackU, ScrollBack3
  685. ScrollBack3:  MATCH 25,20,,"     PgDn",ScrollBackD, ScrollBackX
  686.  
  687. ScrollBackUD: Popup 25,1,normal
  688. TEXT " "
  689.                SELECT 1,19,6,PgUp
  690.                SELECT 1,24,6,PgDn
  691.                SELECT 1,57,10,ESCAPE
  692.                SELECT 1,48,9,C
  693.                SELECT 1,40,8,S
  694.                SELECT 1,31,9,F1
  695.               PEND
  696.  
  697. ScrollBackU:  Popup 25,1,normal
  698. TEXT " "
  699.                SELECT 1,19,6,PgUp
  700.                SELECT 1,57,10,ESCAPE
  701.                SELECT 1,48,9,C
  702.                SELECT 1,40,8,S
  703.                SELECT 1,31,9,F1
  704.               PEND
  705.  
  706. ScrollBackD:  Popup 25,1,normal
  707. TEXT " "
  708.                SELECT 1,24,6,PgDn
  709.                SELECT 1,57,10,ESCAPE
  710.                SELECT 1,48,9,C
  711.                SELECT 1,40,8,S
  712.                SELECT 1,31,9,F1
  713.               PEND
  714.  
  715. ScrollBackX:  Popup 25,1,normal
  716. TEXT " "
  717.                SELECT 1,57,10,ESCAPE
  718.                SELECT 1,48,9,C
  719.                SELECT 1,40,8,S
  720.                SELECT 1,31,9,F1
  721.               PEND
  722.  
  723. ;---------------------------------------------------------------------------------------
  724. ;             Key Definitions
  725. ;-------------------------------------------------------------------------------------
  726.  
  727. K1:           TYPE "1"
  728. K2:           TYPE "2"
  729. K3:           TYPE "3"
  730. K4:           TYPE "4"
  731. K5:           TYPE "5"
  732. K6:           TYPE "6"
  733. K7:           TYPE "7"
  734. K8:           TYPE "8"
  735. A:            TYPE "A"
  736. B:            TYPE "B"
  737. C:            TYPE "C"
  738. D:            TYPE "D"
  739. E:            TYPE "E"
  740. F:            TYPE "F"
  741. G:            TYPE "G"
  742. H:            TYPE "H"
  743. I:            TYPE "I"
  744. J:            TYPE "J"
  745. K:            TYPE "K"
  746. L:            TYPE "L"
  747. M:            TYPE "M"
  748. N:            TYPE "N"
  749. O:            TYPE "O"
  750. P:            TYPE "P"
  751. Q:            TYPE "Q"
  752. R:            TYPE "R"
  753. S:            TYPE "S"
  754. T:            TYPE "T"
  755. U:            TYPE "U"
  756. V:            TYPE "V"
  757. W:            TYPE "W"
  758. X:            TYPE "X"
  759. Y:            TYPE "Y"
  760. Z:            TYPE "Z"
  761. CtlU:         TYPE 21
  762. SP:           TYPE 32
  763. CtlSp:        TYPE 0,57  ;????  <=====    Does anyone know how to do this?
  764. INS:          TYPE 0,82
  765. DEL:          TYPE 0,83
  766. Home:         TYPE 0,71
  767. AltD:         TYPE 0,32
  768. AltC:         TYPE 0,46
  769. AltF:         TYPE 0,33
  770. AltQ:         TYPE 0,16
  771. AltS:         TYPE 0,31
  772. AltT:         TYPE 0,20
  773. AltH:         TYPE 0,35
  774. AltA:         TYPE 0,30
  775. AltJ:         TYPE 0,36
  776. AltK:         TYPE 0,37
  777. AltL:         TYPE 0,38
  778. AltO:         TYPE 0,24
  779. AltR:         TYPE 0,19
  780. AltG:         TYPE 0,34
  781. CtlHome:      TYPE 0,119
  782. CtlEnd:       TYPE 0,117
  783. PgUp:         TYPE 0,73
  784. PgDn:         TYPE 0,81
  785. AltX:         TYPE 0,45
  786. AltN:         TYPE 0,49
  787. AltP:         TYPE 0,25
  788. AltV:         TYPE 0,47
  789. AltW:         TYPE 0,17
  790. AltY:         TYPE 0,21
  791. Alt0:         TYPE 0,129
  792. Alt1:         TYPE 0,120
  793. Alt3:         TYPE 0,122
  794. Alt5:         TYPE 0,124
  795. Alt6:         TYPE 0,125
  796. Alt8:         TYPE 0,127
  797. Alt9:         TYPE 0,128
  798. AltB:         TYPE 0,48
  799. AltE:         TYPE 0,18
  800. AltI:         TYPE 0,23
  801. AltM:         TYPE 0,50
  802. AltU:         TYPE 0,22
  803. AltZ:         TYPE 0,44
  804. AltEqual:     TYPE 0,131
  805. AltMinus:     TYPE 0,130
  806. ShTab:        TYPE 0,15
  807. ESCAPE:       TYPE Esc
  808. ScrENTER:     TYPE "^M"
  809. ScrPAUSE:     TYPE "^~"
  810. CtlLtArrow:   TYPE 0,115
  811. CtlRtArrow:   TYPE 0,116
  812. DnArrow:      TYPE 0,80
  813. UpArrow:      TYPE 0,72
  814. LeftM:        TYPE 0,75
  815. RightM:       TYPE 0,77
  816. Script:       TYPE "@SCRIPT"
  817. Shell:        TYPE "@SHELL"
  818. ShellX:       TYPE "@SHELLX"
  819. Dial:         TYPE "@DIAL"
  820. Help:         TYPE "@HELP"
  821. Edit:         TYPE "@EDIT"
  822. Stamp:        TYPE "@STAMP"
  823. PASSWORD:     TYPE "$PASSWORD"
  824. F1:           TYPE 0,59
  825. F2:           TYPE 0,60
  826. F3:           TYPE 0,61
  827. F4:           TYPE 0,62
  828. F10:          TYPE 0,68
  829. CtlD:         TYPE 4
  830. CtlR:         TYPE 18
  831. CtlP:         TYPE 16
  832. AltF1:        TYPE 0,104
  833. Alt13:        TYPE 0,28
  834. RETURN:       TYPE ENTER
  835. NoAction:     NOTHING
  836.